10 GOSUB1102:PRINTA$;:GOTO10:REM THIS IS THE "HOST" PROGRAM
1101 GOTO1109:REM GET WITH CURSOR BLINK
1102 XL%=PEEK(211)
1103 IFXL%>21THENXL%=XL%-22:GOTO1103
1104 XL%=XL%+PEEK(214)*22+4096:XC=33792+XL%:IFPEEK(210)>20THENXC=XC+512:XL%=XL%+3584
1105 POKEXC,PEEK(646):XO%=PEEK(XL%):XT%=XO%:XQ%=128:IFXO%>127THENXQ%=-XQ%
1106 XT%=XT%+XQ%:POKEXL%,XT%:XQ%=-XQ%:FORXR=1TO60:REM CHANGING 60 CHANGES BLINK SPEED
1107 GETA$:IFA$<>""THENPOKEXL%,XO%:RETURN
1108 NEXT XR:GOTO1106
1109 REM